home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 July / 1984-07.d64 / code pro-64 sma (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  21KB  |  622 lines
  1. 6 poke53280,14:poke53281,6
  2. 10 dim hf(96),lf(96),pt(9,9),as(255),wt$(9),nd(2,22),mu(99,3)
  3. 90 p1%=peek(828):p2%=peek(829):p3%=peek(830)
  4. 99 ft=0
  5. 100 rem title page
  6. 110 poke53272,23:print "[159][147]";spc(16);"[215][197][204][195][207][205][197][157][157][157][157][157]to[157][157][157][157][157][157][195]ode[208]ro-64[146]"
  7. 115 print "        ([193] [195]ommodore 64 [212]utorial)":print spc(18);"by"
  8. 120 print"       [211][217][211][212][197][205][211] [205][193][206][193][199][197][205][197][206][212] [193][211][211][207][195][201][193][212][197][211]"
  9. 125 print spc(11);"3700 [195]omputer [196]rive":print spc(12);"[210]aleigh, [206][195] 27609"
  10. 130 print"           [195]opyright (c) 1983":printtab(10);"'[193]ll [210]ights [210]eserved'"
  11. 135 print spc(6);"[208]lease [215][193][201][212][146] for program [204][207][193][196][146]"
  12. 136 ifft=0thengosub3300:gosub9000:ft=1
  13. 137 ifft=1then fort=0to1500:nextt
  14. 150 print"[147][159]";:pt$="  [215]elcome to the [195]ode[208]ro-64 demo!  ":gosub9410:print
  15. 151 gosub9300
  16. 152 print"  [217]ou will be seeing some of the more"
  17. 153 gosub9300
  18. 154 print"  than ";:pt$="160":gosub9410:print" tutorial and instructional"
  19. 155 gosub9300
  20. 156 print"  screens in this system in the next"
  21. 157 gosub9300
  22. 158 print"  5 minutes. "
  23. 164 print"  [195]ode[208]ro-64 teaches you [194][193][211][201][195], [211]prite,"
  24. 165 gosub9300
  25. 166 print"  and [205]usic programming...";:pt$="visually":gosub9410:print"..."
  26. 167 gosub9300
  27. 168 print"  [217]ou are in ";:pt$="complete control":gosub9410:print" and use"
  28. 169 gosub9300
  29. 170 print"  our [205]ain [205]enu to select topics..."
  30. 171 ml=25:pt$=f7$:gosub9420
  31. 172 gosub9400
  32. 200 gosub201:goto245
  33. 201 poke53272,23:print"[146][159][147][195]ode[208]ro-64 (c) 1983, [211][205][193]      [205]ain [205]enu"
  34. 202 poke54296,0
  35. 203 print"     [207]verview":print"         0 - [213]sing [195]ode[208]ro-64          "
  36. 204 print"         1 - [195][194][205]-64 [203]eyboard [210]eview    "
  37. 206 print"     [194][193][211][201][195][160][212]utorial"
  38. 207 print"         2 - [201]ntroduction to [194][193][211][201][195]     "
  39. 208 print"         3 - [194][193][211][201][195][160][195]ommands            "
  40. 210 print"         4 - [194][193][211][201][195][160][211]tatements          "
  41. 212 print"         5 - [194][193][211][201][195][160][198]unctions           "
  42. 214 print"     [199]raphics & [205]usic"
  43. 215 print"         6 - [203]eyboard graphics         "
  44. 216 print"         7 - [201]ntroduction to [211][208][210][201][212][197][211]   "
  45. 218 print"         8 - [211][208][210][201][212][197][160][199]enerator          "
  46. 220 print"         9 - [211][208][210][201][212][197][160][196]emonstrator       "
  47. 222 print"         [193] - [201]ntroduction to [205][213][211][201][195]     "
  48. 224 print"         [194] - [205][213][211][201][195][160][199]enerator           "
  49. 226 print"         [195] - [205][213][211][201][195][160][196]emonstrator        "
  50. 228 print"     [207]ther [207]ptions":print"         [203] - [203]eyword [201]nquiry           "
  51. 230 print"         [210] - [210]un [211]ample [208]rograms       "
  52. 233 return
  53. 245 ml=25:pt$="  [212]hese are the topics we will cover.  ":gosub9420
  54. 250 ns=1152:nl=03:gosub1190:gosub1192:ns=1192:nl=03:gosub1190:gosub1192
  55. 251 ns=1312:nl=03:gosub1190:gosub1192:ns=1352:nl=03:gosub1190:gosub1192
  56. 252 ns=1392:nl=22:gosub1190:ns=1432:nl=03:gosub1190:gosub1192
  57. 253 ns=1552:nl=03:gosub1190:gosub1192:ns=1592:nl=03:gosub1190:gosub1192
  58. 254 ns=1632:nl=22:gosub1190:ns=1672:nl=25:gosub1190
  59. 255 ns=1712:nl=03:gosub1190:gosub1192:ns=1752:nl=21:gosub1190
  60. 256 ns=1792:nl=24:gosub1190:ns=1912:nl=03:gosub1190:gosub1192
  61. 257 ns=1952:nl=03:gosub1190:gosub1192
  62. 258 ml=25:pt$=f7$:gosub9420:gosub9400
  63. 259 gosub2200:gosub3450:gosub3100:gosub2600:gosub900:gosub4000:goto1500
  64. 400 goto1000
  65. 900 print"[147][159]"
  66. 902 print"  [212]he [195]ommodore 64 [211]ound [201]nterface"
  67. 903 gosub9300
  68. 904 print"  [196]evice ";:pt$="([211][201][196])":gosub9410:print" is a unique and quite"
  69. 905 gosub9300
  70. 906 print"  versatile music synthesizer...but it"
  71. 907 gosub9300
  72. 908 print"  is ";:pt$="complex and difficult":gosub9410:print" to program."
  73. 909 gosub9300
  74. 910 print"  [195]ode[208]ro-64 helps you ";:pt$="master":gosub9410:print" sound"
  75. 911 gosub9300
  76. 912 print"  effects and music generation with the"
  77. 913 gosub9300
  78. 914 print"  [211][201][196] by letting you ";:pt$="[197]xperiment":gosub9410:print" with"
  79. 915 gosub9300
  80. 916 print"  the [211][201][196]..."
  81. 917 gosub9300
  82. 918 print"  [207]ur ";:pt$="[205][213][211][201][195][160][196]emonstrator":gosub9410:print" lets you enter"
  83. 919 gosub9300
  84. 920 print"  various combinations of [211][201][196] register"
  85. 921 gosub9300
  86. 922 print"  values and ";:pt$="hear the results":gosub9410:print" by"
  87. 923 gosub9300
  88. 924 print"  playing a keyboard 'organ'."
  89. 925 gosub9300
  90. 926 print"  [215]atch and listen now..."
  91. 927 ml=25:pt$=f7$:gosub9420
  92. 928 gosub9400
  93. 1000 poke53272,21:print"[159][147]codepro-64   music demonstrator    c.0.4";
  94. 1001 poke54296,15
  95. 1002 nd=1:nz=50:ln=3:rem nz=77 for 3 ln
  96. 1009 print"[146]                                      "
  97. 1010 print"[146]        [144]  [144]  [194] [144]  [144]  [144]  [194] [144]  [144]  [194] [144]  [144]  [146]   last"
  98. 1012 print"[146]        [144]  [144]  [194] [144]  [144]  [144]  [194] [144]  [144]  [194] [144]  [144]  [146]   note"
  99. 1014 print"[146]        [146]2 [146]3 [194] [146]5 [146]6 [146]7 [194] [146]9 [146]0 [194] [146]- [146]\ [146]       "
  100. 1016 print"[146]        [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [146]       "
  101. 1018 print"[146]       q[194]w[194]e[194]r[194]t[194]y[194]u[194]i[194]o[194]p[194]@[194]*[194]^"
  102. 1020 print"[159]#[146]   wf[146]    pulse[146]  a[146]  d[146]  s[146]  r[146] dur[146] s/m[146] oct[146]"
  103. 1024 gosub1200
  104. 1026 print"select line with cursor. play keyboard,"
  105. 1027 print"or press f2 to edit line or f4 for song.";
  106. 1028 ml=23:pt$="codepro lets you select & edit sid   ":gosub9420
  107. 1029 ml=24:pt$="parameters and play the keyboard.    ":gosub9420
  108. 1030 print"";:forn=0toln:print"";:nextn
  109. 1031 print"";right$(str$(ln),1);
  110. 1040 ad=9:sr=0:pokev1+5,9:pokev1+6,0:pokev1+2,0:pokev1+3,8:ov=60
  111. 1041 nz=0
  112. 1042 ty=20:wn=65:wf=64:nx=0:ni=1
  113. 1043 nx=nx+ni:ifnx>22ornx<1then1060
  114. 1044 ny=nx-ni:ifny<1thenny=1
  115. 1045 ifny>22thenny=22
  116. 1046 pokepz,nd(0,nx):pokepz+1,nd(1,nx):pokepx+nd(2,ny),32:pokepx+nd(2,nx),81
  117. 1048 nn=ov+nx:pokev1+5,0:pokev1+6,0:pokev1+4,8:pokev1+4,0
  118. 1050 pokev1,lf(nn):pokev1+1,hf(nn):pokev1+5,ad:pokev1+6,sr
  119. 1052 pokev1+4,wn:tx=ti+ty
  120. 1054 iftx>tithen1054
  121. 1056 pokev1+4,wf:goto1043
  122. 1060 nz=nz+1:ifnz>1then1140
  123. 1062 print"";:forn=0toln:print"";:nextn
  124. 1063 print"[146][159]";right$(str$(ln),1);
  125. 1064 ln=0:print"";:forn=0toln:print"";:nextn
  126. 1065 print"";right$(str$(ln),1);
  127. 1070 ad=9:sr=208:wn=33:wf=32:pokev1+5,9:pokev1+6,208:pokev1+2,0:pokev1+3,0
  128. 1072 ty=10:nx=22:ni=-1:ov=36
  129. 1074 goto1044
  130. 1100 rem
  131. 1135 rem flash -play keyboard-
  132. 1136 ns=1849:nl=14:gosub1190
  133. 1139 goto1030
  134. 1140 rem
  135. 1142 ml=25:pt$="press f7 to continue           ":gosub9420
  136. 1149 gosub9400:return
  137. 1190 forn5=0tonl-1:n6=ns+n5:poken6,peek(n6)+128:nextn5:fort=0to250:nextt:return
  138. 1192 forn5=0tonl-1:n6=ns+n5:poken6,peek(n6)-128:nextn5:fort=0to100:nextt:return
  139. 1194 forn5=0tonl-1:n6=ns+n5:poken6,peek(n6)+128:nextn5:fort=0to2000:nextt:return
  140. 1196 forn5=0tonl-1:n6=ns+n5:poken6,peek(n6)-128:nextn5:fort=0to20:nextt:return
  141. 1199 stop
  142. 1200 print"0  33(s)  0,  0  0  9 12 12  10  s   3"
  143. 1201 print"1  33(s)  0,  0  0  9 12 12  20  m   5"
  144. 1202 print"2  17(t)  0,  0  0  9 12 12  20  m   5"
  145. 1203 print"3  65(p)  8,  0  0  9 12 12  20  m   5"
  146. 1204 print"4 129(n)  0,  0  0  9 12 12  20  m   2"
  147. 1205 print"5  33(s)  0,  0  4 10  8 10  20  m   5"
  148. 1206 print"6   0     0,  0  0  0  0  0   0  s   0"
  149. 1207 print"7   0     0,  0  0  0  0  0   0  s   0"
  150. 1208 print"8   0     0,  0  0  0  0  0   0  s   0"
  151. 1209 print"9   0     0,  0  0  0  0  0   0  s   0"
  152. 1299 return
  153. 1500 print"[147][159] [195]ode[208]ro-64 is only $59.95 (plus $3.00
  154. 1502 [153]" shipping)!  atnnd we offer a 10-day "
  155. 1504 [153]" moneyback guarantee.  (NULL)rder now by "
  156. 1506 [153]" calling (NULL)(NULL)(NULL)(NULL) asc(NU